gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\treatedList.asp
<!-- #include file = "include/sysbase.asp" --> <!-- #include file = "../include/config.asp" --> <% dim rsObj,strSQL dim page, myKeyword, thisUrl, i, bShowAdd, sAddPage page = Request.QueryString("page") if (page = "" or IsEmpty(page)) then page = 1 thisUrl = "treatedList.asp?true=1" Session("adminOldUrl") = thisUrl&"&page = "&page set rsObj = Server.CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM OrderList WHERE state = 1 " strSQL = strSQL&" ORDER by id desc" rsObj.Open strSQL, conn, adOpenKeyset, adLockReadOnly rsObj.pagesize = conMaxPerPage %> <html> <head> <title>订单维护</title> <meta http-equiv = "Content-Type" content = "text/html; charset = gb2312"> <link rel = "stylesheet" href = "include/main.css" type = "text/css"> <script language = Javascript> <!-- function jumpTo(i){ if(i == 1){ this.document.location = "<%=thisUrl%>";} if(i == 2){ this.document.location = "<%=thisUrl%>&page=<%=page-1%>";} if(i == 3){ this.document.location = "<%=thisUrl%>&page=<%=page+1%>";} if(i == 4){ this.document.location = "<%=thisUrl%>&page=<%=rsObj.pageCount%>";} } //--> </script> </head> <body text = "#000000" leftmargin = "0" topmargin = "0"> <div align = "center"><br> </div> <table width = "99%" border = "1" bordercolordark = #9CC7EF bordercolorlight = #145AA0 cellspacing = "0" cellpadding = "4" align = "center"> <tr bgcolor = "#4296E7"> <form method = "post" action = "memberList.asp" name = "form1"> <td colspan = "7" height = "28"> <div align = "center"><font color = "#FFFFFF">发货记录</font></div> </td> </form> </tr> <tr bgcolor = "#5EA5E6"> <td width = "6%" nowrap> <div align = "center"><font color = "#FFFFFF"> 编号</font></div> </td> <td width = "8%" nowrap> <div align = "center"><font color = "#FFFFFF">客户帐号</font></div> </td> <td width = "7%" nowrap> <div align = "center"><font color = "#FFFFFF">客户姓名</font></div> </td> <td width = "50%" nowrap> <div align = "center"><font color = "#FFFFFF">地址</font></div> </td> <td width = "12%" nowrap> <div align = "center"><font color = "#FFFFFF">电话</font></div> </td> <td width = "12%" nowrap> <div align = "center"><font color = "#FFFFFF">Email</font></div> </td> <td width = "5%" nowrap> <div align = "center"><font color = "#FFFFFF">详细</font></div> </td> </tr> <% dim rsID i = 1 if not (rsObj.eof or err) then rsObj.move (page-1)*conMaxPerPage do while not (rsObj.eof or err) rsID = rsObj("id") %> <tr> <td width = "6%"> <div align = "center"><%=rsObj("id")%></div> </td> <% if rsObj("MemberId") <> "0" then %> <td width = "8%" title = "点击查看会员信息" style = "cursor:hand" onClick = "Javascript:window.location = 'memModify.asp?memberID=<%=rsObj("memberID")%>'" ><font color = red><b><%=rsObj("memberID")%></b></font> </td> <% else %> <td width = "8%" >非会员 </td> <% end if%> <td width = "7%"><%=rsObj("customerName")%></td> <td width = "50%"><%=rsObj("address")%></td> <td width = "12%" nowrap><%=rsObj("phone")%></td> <td width = "12%"><%=rsObj("email")%></td> <td width = "5%" title = "点击查看订单具体信息" style = "cursor:hand" onClick = "Javascript:window.location = 'treatedView.asp?id=<%=rsObj("id")%>'" >查看</td> </tr> <% i = i+1 if i>conMaxPerPage then exit do rsObj.MoveNext loop %> <tr bgcolor = "#4296E7"> <td colspan = "7"> <% bShowAdd = False %> <!-- #include file = "include/pageguide.asp"--> </td> </tr> </table> </body> </html>